cor <- rbind(c(1,.88,.80,.86,.42,.40,.30,.38),
c(0.88,1,.85,.83,.38,.33,.24,.47),
c(0.80,0.85,1,.80,.38,.32,.28,.34),
c(0.86,0.83,0.80,1,.44,.33,.33,.36),
c(0.42,0.38,0.38,0.44,1,.73,.76,.63),
c(0.40,0.33,0.32,0.33,0.73,1,.58,.54),
c(0.30,0.24,0.28,0.33,0.76,0.58,1,.58),
c(0.38,0.47,0.34,0.36,0.63,0.54,0.58,1))
dimnames(cor)[[2]] <- c("Taille","Empan.bras","Long.avant.bras","Long.jambe","Poids","Tour.taille","Tour.poitrine","Larg.poitrine")
dimnames(cor)[[1]] <- c("Taille","Empan.bras","Long.avant.bras","Long.jambe","Poids","Tour.taille","Tour.poitrine","Larg.poitrine")
eigen(cor)$vector->vec
dimnames(vec)[[2]] <- c("Comp 1","Comp 2","Comp 3","Comp 4","Comp 5","Comp 6","Comp 7","Comp 8")
dimnames(vec)[[1]] <- c("Taille","Empan.bras","Long.avant.bras","Long.jambe","Poids","Tour.taille","Tour.poitrine","Larg.poitrine")
vec